home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 5 (Internal Edition) / Apple R&P Lib Internal v5.0.iso / 6-Developer Demos / Developer Demos-Ed. / Macintosh School® CD-ROM Demo / Macintosh SchoolÆ CD-ROM Demo / card_56831.txt < prev    next >
Encoding:
Text File  |  1990-08-14  |  1.8 KB  |  92 lines
  1. -- card: 56831 from stack: in
  2. -- bmap block id: 57056
  3. -- flags: 4000
  4. -- background id: 25390
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on returnKey
  8.   flashButton "OK"
  9.   doMenu first
  10. end returnKey
  11.  
  12.  
  13. -- part 1 (button)
  14. -- low flags: 00
  15. -- high flags: 2000
  16. -- rect: left=137 top=199 right=217 bottom=205
  17. -- title width / last selected line: 0
  18. -- icon id / first selected line: 0 / 0
  19. -- text alignment: 1
  20. -- font id: 0
  21. -- text size: 12
  22. -- style flags: 0
  23. -- line height: 16
  24. -- part name: OK
  25. ----- HyperTalk script -----
  26. on mouseUp
  27.   lock screen
  28.   put card field "Status" & "‚Ķ" into card field "Title" of previous card
  29.   put "Lunch Status" into card field "Status"
  30.   go to previous card
  31.   unlock screen
  32. end mouseUp
  33.  
  34.  
  35.  
  36. -- part 2 (button)
  37. -- low flags: 00
  38. -- high flags: 2000
  39. -- rect: left=307 top=199 right=217 bottom=375
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 0 / 0
  42. -- text alignment: 1
  43. -- font id: 0
  44. -- text size: 12
  45. -- style flags: 0
  46. -- line height: 16
  47. -- part name: Cancel
  48. ----- HyperTalk script -----
  49. on mouseUp
  50.   lock screen
  51.   put "Lunch Status" into card field "Status"
  52.   go to previous card
  53.   unlock screen
  54. end mouseUp
  55.  
  56.  
  57.  
  58. -- part 3 (field)
  59. -- low flags: 02
  60. -- high flags: 0000
  61. -- rect: left=215 top=157 right=175 bottom=407
  62. -- title width / last selected line: 0
  63. -- icon id / first selected line: 0 / 0
  64. -- text alignment: 0
  65. -- font id: 0
  66. -- text size: 12
  67. -- style flags: 0
  68. -- line height: 16
  69. -- part name: Status
  70.  
  71.  
  72. -- part 4 (field)
  73. -- low flags: 01
  74. -- high flags: 0000
  75. -- rect: left=128 top=43 right=61 bottom=306
  76. -- title width / last selected line: 0
  77. -- icon id / first selected line: 0 / 0
  78. -- text alignment: 0
  79. -- font id: 0
  80. -- text size: 12
  81. -- style flags: 0
  82. -- line height: 16
  83. -- part name: Title
  84.  
  85.  
  86. -- part contents for card part 3
  87. ----- text -----
  88. Lunch Status
  89.  
  90. -- part contents for card part 4
  91. ----- text -----
  92. Lunch Status‚Ķ